home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / RESCTRL / A.I < prev    next >
Encoding:
Modula Implementation  |  1989-11-04  |  644 b   |  35 lines

  1. IMPLEMENTATION MODULE A;
  2.  
  3. FROM MOSGlobals IMPORT MemArea;
  4.  
  5. FROM ResCtrl IMPORT RemovalCarrier, CatchRemoval;
  6.  
  7. IMPORT C;
  8.  
  9. IMPORT Terminal;
  10.  
  11. VAR wait: CHAR;
  12.     rCarrier: RemovalCarrier;
  13.     wsp: MemArea;
  14.     
  15. PROCEDURE a;
  16.   BEGIN
  17.     Terminal.WriteString( 'Hallo hier ist Modul A');
  18.     Terminal.WriteLn;
  19.   END a;
  20.   
  21. PROCEDURE Removal;
  22.   BEGIN
  23.     Terminal.WriteString( 'A.Removal');
  24.     Terminal.WriteLn;
  25.     C.c;
  26.     Terminal.Read( wait)
  27.   END Removal;
  28.   
  29. BEGIN
  30.   Terminal.WriteString( 'Modulrumpf von A wird ausgeführt');
  31.   Terminal.WriteLn;
  32.   wsp.bottom:= 0;
  33.   CatchRemoval( rCarrier, Removal, wsp);
  34. END A.
  35.